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OJOGO 
DAVIDA 



AS REGRAS DA VIDA 

A DISPOSICAO INICIAL 

DA COLONIA 

COMO CRIAR UMA COLONIA 

PROGRAMA EM CODIGO 



Programe seu micro para simular a 
eterna luta dos seres unicelulares 
pela vida. Depois, desafie um parceiro 
para jogar. arranjo inicial da 

colonia de bacterias deiinira o vencedor. 



Ncsif fasdnante jogo, o video reprc- 

scnia um niundo bidimensional, ondc 
celulas podera viver, muttiplicar-se e 
niorrer. O Jogo da I idti, como e" dcno- 
minado, FoJ inventado por tun dentists 
ingles ha alguns anos, para set jogadc 
cm um tabuletro como o de xadrez. Era 
sua vers&o computadorizada, bastante 
popular entre os usuar ios de mierocom 
put adores, a tela i dividida em um pa- 
drao quadrieulado (iiiwsivel para o jo- 
gador), Cada quadradinho pode abrigar 
Lima celuia — uma bacteria, por exera- 
plo, I'Nsa celuia tera, de acordocoin sua 
disposic&o ni» diagrams, ate um maxi- 
iiiD dc oko \ izinhos. 

As regras do /ogo da Vide detenui- 
nant quando imiii celuia dcve solucvi- 
ver on tnorrer. e, tambcin. quando urna 
nova celuia deve nasccr. Sao das: 

* Umu celuia nasee sempre que existe 
um espaco ctrcado pot exataraente ties 
vi/iuhos. 

• Uma celuia conscguc sobre\ iver aie a 
gerac&o seguinte quando lens dois mi 
ires viztnhoa. 




- As celulas que nan se enquadrarem rtas 
sttuacdes anteriores monem. Era um es- 
paco com mats de ires viztntios, por 

exempto, supde-seqtie faliara aliniento 
mi ovigenic* para todas as celulas. 

Baseado nessas regras, o programa 
determina o futuro de cada qiiadrado na 
tela t moslra como a coldnia inicial. 
moutada pelo jogador, se desemolve dc 
geracad para geracdo. Cada geracad 
correspottde a um eielo eomplcio de eal- 
culos para todo o quadrieulado. 



ou seja, do numero de quadradinhos — . 
o caiculo de uma geracad sera muito de- 
morado se se utiuzar um programa es- 
crito em linguagem BASK". Por isso. 
moiiiamos o programa em linguagem de 
maquina, o que Ihe permitira observar 
uma geracao da colduia a eada segun- 
do. aproximadamente. 

Como as geracoes sao cxiliidas era 
cores diferetltes, ef«to visual e muito 
interessante. Voce vera, na tela, como 
us coldnias sc espatham, mudara, frag- 

mentain-se cm unidades meitorcs, inor- 
rem ou rejuvencscem. 



mental para o descmolar do jogn. Al- 
guns padrdes coodetiatn a coldnia at* 
lim apos ajgumas geracdes; outros pos- 
sibililain sua sobrcvivencia por eeniemis 
e centenas de geracdes. Cettas cotnpo- 
sieocs determinant, amda. que a colo- 
niii oseile entre um padrao c ouiro cn- 
quanto durar a simulacao. 



Cabe BO jogador cstahelcccr o padrao 
inicial, eiilrando as posicoesdas primei- 
ras celulas. I'm dps objetivos do jogo 
consiste cm criat uma coldnia que dure 
o major admero possivd lie aerapdes — 
o programa informs quamas geracdes 
>c passaram. Eatretanto, as vezes, vale 
a pena competir simplesineme para \er 
quern compde a coldnia com cfeito mats 
interessante. Existem alguns padroes, 
poi exempio, que se desioeam era uma 
direcao, recriandosua forma original a 
cada quatco oil cinco geracdes, com um 
cfeito adictonal: a eiimiiiacao dc todas 
.is celulas que vao sendo cneoniradas no 
caratnho. 

v r occ podera aproveitar ial efeho pa- 
ra deseuvoiver um jtigo em que dois 
oponentes mom am t'ormas "devorado- 
ras", ganhaudo ;iquelcqiic desiruir mais 
deprcssa a coldnia ilo ouiro. 



PROGRAMA 



Nati eatraremos em ileialbe qu;uuo 
iio runcioiiamciKo do pnvgiainaesn lin- 
guagem de maquina. I sie c canegado 



em linguagem BASIC que utiliza os co- 
mandos POKK e I'SK. Os cOdtgOS de- 
cimals correspondentes ao programa es- 
iao arma/euados nas instrucdes l>AT.\ 
que contecam na linha 5(K) (no Spee- 
trum)ou i (WO (no TRS-Color). A pane 
do programa cserilo cm BASK simples 
meiile te esses eodigos, eoloeando-os nn- 
uia parte protegida da niemdria. Alein 
disso, ela e responsavel pela Cliacad da 
tela e pela entrada da colonia inicial. 
lisle jogo e um interessante exempk) 
do usti de programas cm eddjgo de ma- 
quina a parlir de um programa em BA- 
SK". Apresemamos aqui as vcrsoes pa- 
ra os micros da linha Spectrum e I kS- 
Color. Os programas para ouiras nui- 
quinas serio dados posteriormente. 



5 CLEAR 2B671: FOR N=U.S« 
" TO USR 'A™ +7: READ A: 
POKE N.A: NEXT N 

6 DATA 0,24.60,102.102.60.24 
,0 

7 GORUB 20 

10 POKE 2.T658.8; BttlfiHT Ir 



BORDER 0: INK 6: PAPER 0: CLS 

20 FOR N-0 TO 21: PRINT AT H, 
0: PAPER 1:" ": NEXT N 
30 PLOT 63,0: DRAW 0,175: 
DRAW 192,0: DBAW 0.-175: DRAW 
-255,0: DBAW 0,175: DRAW 63,0 
40 PRINT AT 2.1; PAPER 2; INK 
7;" VIDA "; PAPER 0; INK 6; AT 
5,1:" GER ";AT 6,1;" 0000 " 
70 RAND USR 28672: LET X-20: 
LET Y-10 

80 PRINT AT ¥,X; OVER !;"■": 
FOR N=l TO 10: NEXT N: PRINT 
AT Y.X; OVER 1;" " 
90 LET A$«INKEY3: IF AS-"" 
THEN GOTO SO 
92 IF A$-"Q" THEN GOTO 110 

94 IF CODE AS-13 THEN PRINT 
AT Y.X;CHR$ 144: POKE 30000+ < 

(Y-1)*23)+(X-81 , 144: GOTO 80 

95 IF A$="M" THEN PRINT AT ¥ 
r Xi" ": POKE 30000+(CY-1)*23) 
+CX-8) ,32; GOTO BO 

100 LET X-X-(AS=""5")*(X>8) + (AS 
"8")*(X<303 -. LET Y=Y-(A$=*7") 
MY>1) + (AS-"6")*(Y<20) : GOTO 

80 

110 OVER 0: RAND USR 28711 

120 PRINT AT 21,1; FLASH 1 ; "QU 

ALQUER TECLA PARA RECOMECAR": 

FOB N-l TO 200: NEXT N 

130 LET AS-INKEYS: IF AS=*" 

THEN GOTO 130 

140 GOTO 10 

200 LET L=500: RESTORE L: FOR 

N=2B672 TO 2B951 STEP 8 

210 LET T=0: FOR D=0 TO 7 

220 READ A: POKE N+D.A: LET T- 

T+A: NEXT D: READ A: IF AOT 

THEN PRINT FLASH l;"£RRO DE 
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DADOS NA LINHA ";L: STOP 
230 LET L-L+10 
240 NEXT N 
250 RETURN 

500 DATA 33, 2S. 117, 1,211, 3,62, 
32,484 

510 DATA 119,35.13.32,249,5. 
242,6,701 

520 DATA 112,33,48,48,34,0,113 
,34,422 

530 DATA 2,113,33,48,117.34, 
252,112,711 

540 DATA 33,248.118,34.254,112 
,201,243,1243 

550 DATA 42,252.112.6,1,197,88 
,6,704 

560 DATA 8.80,62.22,215.123, 
215,122.847 

570 DATA 215,126,35,254.32,40, 
10.214,926 

580 DATA 142,245.62,16.215,241 
,215,62,1198 

590 DATA 144,215,4,120,2 54,31, 
32,233.1033 

600 DATA 193.4,120,254,21,32, 
214,42,880 

610 DATA 252,112.237,91,254, 
112,229,213,1500 
620 DATA 1,200,1,197,221.33.4, 
113,770 

630 DATA 1,0,7,213,221,94,0, 
221,757 

640 DATA 86,1,229,25,235,225, 
26,254,1081 

650 DATA 32,209,40,1,12,221,35 
.221,771 

660 DATA 35,5,242,107,112,126, 
254 144,1025 

670DATA 121, 56, IB, 254, 2,40,4, 
254 749 
680'dATA 3,32,14.126,254.32,32 




I 







,11,504 

690 DATA 58,251,112,24,6.254,3 

,40,748 

700 DATA 242,62,32.18.35.19. 

193,13,614 

710 DATA 32,185,5,242.99.112. 

209,225.1109 

720 DATA 237,83,252.112,34.254 

,112,33,1117 

730 DATA 4,113,43,126.60,254, 

58,40.698 

740 DATA 4,119,195,203,112,62. 

48,119.862 

750 DATA 195,186,112,62.22.215 

,62.6,860 
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760 DATA 215.62. 2. 215, .13, 0.113 

.62.702 

77(1 DATA 16.215.62.6,215,6,4. 

126.650 

780 DATA 35,215,16.251,58.251, 

112,60,998 

790 DATA 254,151,32.2.62,144, 

50,251 .946 

800 DATA 112,62,127,219,254,31 

.218.40,1063 

810 DATA 112,251,201,149,248. 

118,48.117.1244 

820 DATA 48.49,54,49.233.255, 

234.255,1177 

830 DATA 1,0,24,0,23,0,22,0,70 



,0,997 



Para entrar a colonia inicial, mova o 
cursor usando as teclas de controlc (flc- 
chas). Pressione < ENTER > para criar 
uma celula na posi<;ao desejada, M pa- 
ra matar uma celula, e Q para terminar 
a entrada e iniciar o jogo. 



10 CLS0: CLEAR 200,30999 

20 FOR K-0 TO 11:T-0:FQR J-0 TO 

16:READ ArPOKE 31000+K*17+J,A : 
T-T+A:NEXT:READ S 
30 IF TOS THEN PRINT" ERRO NOS 

DADOS DA LINA"il000+K*10 ; -HAO 
CORRA PROGRAMA 1 ! " : END 
40 NEXT 

50 CLS 0:FOR K-0 TO 3: PRINT %K* 
32,"geracao"; :P0KE 31203+K,48:N 
EXT: POKE 65475,0 
60 PMODE 3: POKE 179,128:PCLS 
70 DEFUSRO-31000 
80 X«=2064:Y-1 

90 P-PEEK(X) :POKE X,(P OR 5*Y)A 
ND(NOT(P AND 5*Y)> 
100 AS-INKEY5:IF AS-" " THEN 90 
110 POKE X,P 

120 IF AS-"*" AND X>1183 THEN X 
-X-32 

130 IF AS-CHRS(IO) AND X<3040 T 
HEN X-X+32 

140 IF AS-CHR${8) AND {X>1152 
R(X-1151 AND Y-l)) THEN Y-Y+1:I 
F Y>2 THEN Y-1:X-X-1 
150 IF AS-CHR$(9) AND (X<3071 



F Y<1 THEN Y-2:X-X+1 

160 IF A$-CHR$(13) THEN 180 

170 GOTO 90 

180 H-USRO(O) 

190 IF INKEYSO"Q" THEN 180 

200 GOTO 50 

1000 DATA 182,121,226,139,16,18 

3,121,226,142,121,227,108,13 2,1 

66.12B,129,58,2425 






m ***** 



*• wV 
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E posslvel usar um sintet izador de voz 
para animar o jogo? 

Voce pode tomar o jogo ainda mais 
interessante programando seu micro 
para anuneiar mensagens ou descrever 
o que se passa na tela. 

Recorra ao manual do seu sintettza- 
dor para ver como introduzif as instru- 
coes que tornarao posslvel fazer a ma- 
quina falar. 

Ja publicamos em INPUT um artigo 
que examina em detalhe o uso de sirv 
tetizadores de voz. Consulte-o. 



1010 DATA 37,9.134,48.167,31.14 

0.121.231,37,239,198,4,206.4.11 

,142.1759 

1020 DATA 121,231,166.130.167,1 

92,140,121,227.38.247,51.200.28 

,90,38,238,2425 

1030 DATA 142,13,0,204,0,0,237, 

129,140.28.128,37,249,142,4,128 

,206.1787 

1040 DATA 13,64,166,128,133,10. 

39,2.141,47,51.65,133.5,39,2.14 

1.1179 

1050 DATA 39,51,65,140,12,0.37, 

233,142.4.128.206,13,64,166,132 

,52,1484 

1060 DATA 2.230.192.134,10.141. 

52.230,192.134.5.141,46,53.2,16 

7,128,1859 

1 n 



, 2 . 108 , 200 , 192 , 108 , 200 , 64 , 31 , 48 

.196,1678 

1080 DATA 63.39.8,108,200,191,1 

08,95,108,200,63.193,63,39,8,10 

8,200,1794 

1090 DATA 193,108,65,108,200,65 

.53.130,165.98,39,19,193,2,39.3 

2.193,1702 

1100 DATA 3,39,28,230,98,67,52, 

2.228.224,231.98,32,17,193,3.38 

.1583 

1110 DATA 13,230.98.196.143,250 

,121,226,52.2,234,224,231,98,57 

,0,0,2175 

Para entrar a colonia inicial, movi- 
mente o cursor utilizando as teclas de 
controle (flechas). Pressione a barra de 
espaco para criar ou eliminar uma celu- 
la na posicao desejada, e a tecla < EN- 
TER > para terminar a entrada e iniciar 
o jogo. 

Um detalhe importante: este progra- 
ma nao funcionara em um TRS-Color 
ou compativel que tenha um acionador 
de disquetes conectados, pois usa uma 
area de memo ria re servada. 



12 PERIFiMCOS 12 



TABLETES 
GRAFICOS 



Uma area de aplicacao em que os 
computadores realmente excederam to- 
das as expectativas e a do desenho au- 
xiliadoporcomputador.ou CAD (do in- 
gles Computer Aided Design). Maqui- 
nas de todos os lamanhos, dos micros 
domeslicos aos computadores de gran- 
de pone (mainframes), tern sido usadas 
nas mais diversas areas do desenho e do 
projeto grafico. Desenhistas de moda, 
por exemplo, ou empresas de constru- 
cao civil, ja empregam programas de 
CAD, e nao apenas em projetos com- 
plexes. 

Muitos micros domesticos foram pla- 
nejados de modo a ter boa capacidade 
grafica simplesmente para a implemen- 
tacao de jogos do tipo videogame. Des- 
se ponto de partida, porem, desenvol- 
veram-se programas de desenho grafi- 
co com recursos espetaculares, sobretu- 
do se levarmos em conta o tamanho e 



Desenhar na tela do computador usando 
centenas de comandos em BASIC nao 6 
urn procedimento razoavel. Com o auxflio 
de urn tablets grafico, voce trabalhara 
tio facilmente quanto com lapis e papel. 



custo dos micros a que se destinam. 

Um dos perifericos mais liteis para a 
exploracao da capacidade grafica dos 
computadores e o tablete grafico, tam- 
bem chamado de mesa digitalizadora. O 
tipo mais comum permite que o usua- 
rio desenhe sobre uma superficie dura 
(o tablete), com o auxilio de uma cane- 
ta. O movimento da caneta no tablete 
e duplicado na tela do computador por 
meio de uma criativa combinacao de 
hardware e software. 

Para obter resultados equivalentes, 
sem empregar um tablete grafico, seria 
preciso recorrer a um consideravel vo- 
lume de programacao. Mesmo assim, 
nao se conseguiria o mesmo grau de fle- 
xibiiidade, sobretudo na alteracao ou 
eliminacao de partes do desenho. 

Ate os labletes mais simples permi- 
tem o desenho de linhas sobre a tela. De- 
pendendo do programa com o qual sao 



usados, podem-se "pintar" areas intei- 
ras com uma certa cor, entre as dispo- 
m'veis em seu micro. Os programas pos- 
sibilitam ainda a mudanca instantanea 
de cores no desenho, sob o comando de 
algumas teclas ou por selecao feita no 
prdprio tablete. Efeitos de "pinceladas" 
de diferentes larguras tambem podem 
ser simulados pelo programa, em com- 
binacao com o tablete. 



TIPOS DE TABLETE 



Existem diversos tipos de tablete pa- 
ra microcomputadores pessoais. O mais 
conhecido no Brasil e o KoalaPad, des- 
tinado aos modelos da linha Apple. De 
baixo custo em relacao aos demais, 
apresenta algumas limitacoes, como a 
baixa resolucao grafica. 

Muitos outros modelos de tablete, co- 
mo o DigiPad, o GrafPad (para o Spec- 
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AS VANTAGES 

DOS TABLETES GRAFICOS 



OS DIFERENTES TIPOS 



DIGITAUZAC AO 



E MAPEAMENTO 



GERACAO DOS SINAIS 



SENSORES DE SUPERF1C1E 



SOFTWARE 



COMO USAR UM TABLETE 



GUARDE SUAS OBRAS DE ARTE 



trum) e o BitPad One (para diversos ti- 
pos de micro), podem ser encontrado? no 
exterior. No Brasil, sao mais comuns os 
tabletes digitatizadores para uso pro fis- 
sions], como os da marca Digigraf, bas- 
tante caros. 

Os tabletes graficos sao vendidos em 
tamanhos que variant conforme a area 
de desenho disponfvel. Normalmente, 
suas medidas sao especificadas segundo 
as dimensoes padronizadas das folhas de 
papel (padrao DIN), tal como A3, A4, 
A6 etc. Medem, assim, de 100 x 100 
mm (os men ores, como o KoalaPad) a 
250 X 300 mm (tabletes medios, usados 
com micros pessoais). Os modelos uti- 
lizados com mesas digitalizadoras de 
grande pone, para aplicacoes em enge- 
nharia, chegam a ter 1 000 x 750 mm. 
O tamanho, evidentemente, afeta o grau 
de precisao que se consegue aungir ao 
desenhar na superficie do tablete. 



Os tabletes variam tambem confor- 
me o cursor. Este pode ser urn ponteiro 
ou uma caneta, preso ou nao ao tablete 
por um fio, ou, entao, uma "mira" for- 
mada por uma lente de vidro ou plasti- 
co, com uma cruz ao centre 

Existent ainda alguns tipos de digita- 
lizadores graficos que funcionam de mo- 
do diferente dos tabletes: sao ospantd- 
grafos, ou iragadores de rigua. Esses 
dispositivos utilizam um braco artieula- 
do que se move em duas direcoes, X e 
Y. Na ponta do braco, prende-se uma 
caneta ou um lapis. O sistema pode ser 
mais barato do que um digitalizador de 
desempenho medio, mas, em contrapar- 
tida, sua precisao e menor. Alem disso, 
nao e facil desenhar a mao livre com o 
pantbgrafo. Em algumas situacoes, po- 
rem, esse dispositivo mostra-se de bas- 
tante utilidade — por exemplo, quando 
as coordenadas de pontos isolados pre- 



cisam ser lidas rapidamente pelo com- 
putador. 



COMO FUNCI0NA 



O tablete grafico emprega o princi- 
ple da digitalizacao de curvas, ampla- 
mente usado em informatica, ja que 
muitas aplicacoes computacionais con- 
sistem na transformacao adequada de 
um fenomeno analogico para uma se- 
qiiencia de mimeros binarios (digitais). 

Um sinal analogico varia continua- 
mente e pode assumir qualquer valor 
fracionario, dentro de certos Qmites mi- 
nimo e maximo. Um exemplo de medi- 
dor anal6gico e o indicador de veloci- 
dade de um automovet. Mas, como sa- 
bemos, o computador s6 e capaz de pro- 
cessar sinais digitais, ou seja, represen- 
tados por meio dos mimeros binarios 





e 1 . A digitalizacao e justamente o pro- 
cesso de transforma^ao de um sinal ana- 
Idgico em um sinal digital que o com- 
putador possa "entender" e armazenar. 

O tablete grdfico, ou mesa digitaliza- 
dora, transforma desenhos em numeros 
(as coordenadas dos pontinhos que 
constituent as linhas do desenho). O 
computador, por sua vez, volta a trans- 
formar os niimeros em desenhos, 
exibindo-os na tela com o mdximo de fi- 
dehdade ao original. Sem a traducao de 
tuna figura em numeros, o computador 
nao poderia "entender" o desenho. 

O processo de digitalizacao consiste 
em dividir uma curva no maior niimero 
possivel de segmentos iguais, ou uma 
area no maior niimero possivel de qua- 
dradinhos de igual tamanho. Quanto 
maior o niimero de partes, maior o de- 
talhamento do desenho a ser entrado no 
computador, Contornos de figuras ou 
retas inclinadas em ziguezague sao tipi- 
cos de desenhos de baixa resolucao. 

O niimero e o tamanho dos quadra- 
dos de divisao da imagem dependent do 
tipo do tablete grafico, assim como do 
computador. Em sistemas profissionais 
de alta resolucao, o tamanho de um pi- 
xel chega a um centesimo de milimetro, 
e os contornos das figuras produzidas 
tern uma aparencia continua (como os 
desenhos animados gerados por compu- 
tador). Os tabletes grdficos para micros 



nao tem uma resolucao tao alta, eviden- 
temente, mas um decimo de milimetro 
jd e suficiente para a producao de tra- 
baihos de boa qualidade. 

A drea do tablete (bem como a do 
video) e dividida em um quadriculado 
imaginario, cujo niimero de linhas e co- 
lunas varia de acordo com o computa- 
dor empregado ou, ainda, com o grau 
de resolucao grdfica (baixa, media e al- 
ta, nos micros das linhas Apple, MSX 
e TRS-Color) selecionado pelo progra- 
ma ou pelo usuario. 

E importante lembrar que a resolu- 
cao maxima do tablete pode ser diferen- 
te da resolucao grafica da tela. Nao tem 
sentido, por exeraplo, utilizar um tablete 
com resolucao de 100 000 pontos na 
area total, se a tela so representa 45 000 
pontos. Estaremos desperdicando reeur- 
sos, a um certo preco, pois o computa- 
dor nao seria capaz de utilizar tanta in- 
formacao grafica. A situacao contrdria 
tamb£m ocorre — ou seja, pode-se uti- 
lizar um computador de alta resolucao 
grafica com um tablete de baixa re- 
solucao. 

Muitos tabletes digitalizadores tem., 
no entanto, superficies quadriculadas 
que permitem estabelecer uma corres- 
pondencia com a representacao na tela. 
As linhas e colunas podem ser numera- 
das, como se costuma fazer com a gra- 
de de referenda de uma mapa. 



Nesse tipo de grade, cada quadradi- 
nho tem duas coordenadas — o niime- 
ro da linha e o niimero da coluna — que 
correspondent, aproximadamente, as 
coordenadas XeYdo ponto do centro 
do quadradinho. Em um sistema onde 
o ponto de origem estivesse no canto in- 
ferior esquerdo do tablete, o quadradi- 
nho de niimero 10/23, por exemplo, es- 
taria a uma distancia de dez quadradi- 
nhos da esquerda, na horizontal, e a 23 
quadradinhos de distancia da borda in- 
ferior, na vertical. Isso significa, portan- 
to, que um desenho — uma reta, por 
exemplo — pode ser convertido em uma 
se>ie de numeros. Esfes correspondem 
as coordenadas dos quadradinhos que 
a reta vai cruzar ao ser tracada sobre a 
superficie do tablete. 



A GERACA0 DO SINAL 



Existem diversas maneiras de produ- 
zir e enviar ao computador os pares de 
numeros correspondentes aos pontos da 
superficie do tablete. 

Alguns tipos de mesa digitalizadora 
requerem uma caneta ou um apontador 
especial e dependem do contato direto 
da ponta desse dispositivo contra uma 
parte ativa da superficie; ja outros exi- 
gem simplesmente o posicionamento 
proximo a superficie. 



Entre as tecnieas mais comuns de di- 
gitalizacao estao inclufdas a conversao 
AD direta, a digitalizacao por grade de 
contato e a digitalizacao por grade de 
proximidade. 

A conversao AD direta e usada ape- 
nas pelos digitalizadores do tipo panto- 
grafieo ou de regua, O metodo mais 
simples 6 o do digitalizador de regua. 
Este tem dois bracos articulados: um 
que se move na direcao horizontal, e ou- 
tro, na vertical. Potenci6metros sao co- 
nectados a cada braco, por meio de en- 
grenagens ou de polias. A medida que 
desloeamos os bracos pela superficie, os 
potenciSmetros giram, produzindo uma 
voltagem contmua proporcional a dis- 
tancia percorrida naquela direcao, des- 
de a origern. Desse modo, obtemos as 
coordenadas X e Y dos pontos. 

digitalizador pantografieo, por sua 
vez, possui dois bracos, articulados em 
um "ombro" e um "cotovelo", cada 
um dispondo de um potenciometro. As 
coordenadas X e Y, nesse caso, tSm que 
ser calculadas por metodos trigonome- 
tricos, a partir dos angulos de posicio- 
namento de cada braco. 

Um conversor AD, ou analogico- 
digital, e responsavel pela conversao da 
voltagem gerada nos potenciometros. O 
conversor AD utiliza um processo de 
comparagao escalonada: uma voltagem 
de referenda, gerada internamente no 
conversor AD, e aumentada passo a 
passo, em pequenos incrementos fixos. 
A cada passo, ela vai sendo comparada 
com o sinal de entrada. Quando, final- 
mente, as duas voltagens se igualam, o 
numero de passos que foram necessarios 
& enviado ao computador. A voltagem 
de referenda e" entao zerada, e o proces- 
so recomeca para um novo ponto do si- 
nal de entrada. Afreqiiincia de amos* 



tragem corresponde ao numero de ve- 
zes que isso e feito por segundo. 

O digitalizador pantografieo requer 
dois conversores AD, um para cada po- 
tenciometro. A resolucao do conversor 
(ou precisao) e dada pelo numero ma- 
ximo de "partes*' (valor do incremen- 
to) em que uma voltagem de entrada po- 
de ser dividida, e esta relacionada ao nu- 
mero de bits do conversor. Assim, um 
conversor de oho bits, por exemplo, po- 
de gerar apenas um numero entre e 255 
— ou seja, a voltagem maxima e dividi- 
da em 256 pedacinhos. 

A informacao gerada por cada con- 
versor e transferida diretamente para a 
memoria do computador, at raves de al- 
guma porta de entrada (serial ou para- 
lela). Se a fxequencia de amostragem for 
muito grande, sera necessario utilizar 
uma quantidade muito grande de me- 
moria. Por isso, a maioria dos progra- 
mas graficos nao armazena toda a infor- 
macao de um desenho em detalhes, mas 
simplesmente vai convertendo as coor- 
denadas em linhas na tela. 



SENSORES DE SUPERFICIE 



O funcionamento dos tabletes exis- 
tentes para micros baseia-se, geralmen- 
te, em dois tipos distintos de mecanis- 
mo. Ambos dependem de sensores ocul- 
tos sob a superficie do tablete. 

Os tipos sensfveis ao contato direto 
sao formados por duas folhas de plasti- 
co. Uma delas contem fios paralelos, es- 
pacados nadiregao horizontal; a outra, 
fios espa^ados na direcao vertical. Ao 
se encostar a ponta do estilete ou da ca- 
neta na superficie do tablete, o contato 
eletrico estabeiecido entre os fios hori- 
zontals e verticals, naquele ponto, infor- 



ma ao computador as coordenadas do 
mesmo. Pode-se reconhecer facilmente 
esse tipo de tablete, ja que qualquer ins- 
trumento pontiagudo, ou mesmo o pro- 
prio dedo, k capaz de ativar o sistema. 
As mesas digitalizadoras mais preci- 
sas, entretanto, utilizam o prinefpio da 
proximidade por inducao eletromagne- 
tica. A malha de fios embutida sob a su- 
perficie recebe correntes eletricas em um 
sistema de varied ura constante. Na pon- 
ta da caneta ou do cursor especial exis- 
te uma bobina detetora, que nao preci- 
sa estar em contato direto com a super- 
ficie. Pode-se, assim, colocar sobre es- 
ta uma folha de papel com o desenho 
ja feito e copia-lo. 



SOFTWARE 



Embora sejam muitas as diferencas 
dos tabletes digitalizadores quanto ao 
hardware, o que realmente conta, em 
termos da exploracao dos recursos de 
cada um, e o software, Como este tam- 
bem e o responsavel pela definicao das 
caracterfsticas do desenho e pela facili- 
dade com que ele pode ser executado, 
a maior preocupacao do usuario deve 
ser a escolha do programa aplicativo. 
Para que nao se cornetam erros, convem 
sempre assistir a uma demonstracao 
completa do sistema. 

Evidentemente, o que o software e 
capaz de fazer depende muito do mode- 
lo do seu computador. Quanto mais ra- 
pido ele for, e quanto major a sua me- 
moria, mais espaco existira para a ope- 
racao de um tablete sofisticado. Aplica- 
coes em alta resolucao, assim como pro- 
gramas com recursos embutidos, exigem 
muita mem6ria. E interessante, portan- 




No menu de abcrtura, o KoalaPad mostra as opfdes disponiveis. A largura das "pinceladas" pode ser escolhida a vontade. 



. 



to, utilizar disquetes, que facilitam o ar- 
mazenamento de teias e expandem aca- 
pacidade do sistema, pelo uso do disco 
como mem6ria virtual. 

O mesmo acontece com a capacida- 
de grafica do sistema. Um bom progra- 
ms para tabletes graficos explora ate o 
limite maximo os recursos disponiveis 
no microcomputador. 

Muitos programas controlados ape- 
nas pelo teclado, como o publicado no 
artigo da pagina 414, sao similares, em 
operacao, ao software destinado aos ta- 
bletes. Porem, quanto a facilidade, ra- 
pidez, conveniencia e flexibilidade, e 
enorme a diferenca entre um sistema 
operado por teclado e o operado por um 
tablete. Um sistema controlado por te- 
clado nao permite, por exemplo, o de- 
senho a mao tivre. 



COMO UTILIZAR UM TABLETE GRAFICO 



As combinacoes especificas entre 
computador/tablete variam bastante, 
pelas razoes expostas anteriormertte. 
Entretanto, todos os programas existen- 
ces foram projetados para trabalhar si- 
mulando o ato de desenhar ou pintar so- 
bre uma folha de papel. E isto, mais do 
que qualquer outra coisa, que da aos ta- 
bletes graficos tanta vantagem em rela- 
cao aos demais metodos de criacao de 
imagens de alia resolucao no microcom- 
putador. 

Em geral, um menu de abertura, co- 
mo o existente para o KoalaPad, ofere- 
ce ao usuario diversas opcoes quanto a 
tecnica e tipo de desenho que se preten- 
de executar. A escolha pode ser feita pe- 
lo teclado, ou, mais comumente, usan- 
do-se o proprio tablete grafico como se 
fosse a paleta de um artista. A tela exi- 



be potinhos de tinta, pinceis e outros 
materials, que sao selecionados com o 
cursor do tablete. Quando o cursor cor- 
respondente na tela estiver no lugar de- 
sejado, pressiona-se um botao ou tecla. 
O desenho e executado na tela a mao 
livre, seja usando apenas a imaginacao, 
seja seguindo um modelo feito sobre pa- 
pel, que pode ser afixado ao tablete. Ca- 
be ao programa receber os sinais gera- 
dos pelo tablete, interpreta-los e colo- 
car instantaneamente a imagern tracada 
sobre a tela. 



OS PROGRAMAS E SEUS RECURSOS 



Algumas vezes, e dificil tracar uma 
reta, ou uma figura geometrica regular, 
a mao livre. Para isso. a maioria dos 
programas possui um menu de curvas e 
de figuras geometricas — como triangu- 
los, retangulos, arcos, circulos, elipses, 
retas etc. — que podem ser escolhidas, 
posicionadas sobre a tela e tracadas au- 
tomaticamente, no tamanho que se 
desejar. 

Os programas tambem oferecem o re- 
curso de apagar e corrigir partes do de- 
senho, ou, nos sistemas mais sofistica- 
dos, de voitar atras, desfazendo-se a ul- 
tima operacao realizada. Se isso nao for 
suficiente para a obtencao do resuliado 
pretendido, pode-se ainda recorrer ao 
recurso de apagar toda a tela e comecar 
tudp de novo. 

E possivel mudar a cor usada nos tra- 
cos do desenho, assim como no preen- 
chimento automatico de areas delimita- 
das (paint), a qualquer instante. Deve- 
se, inicialmente, delinear o desenho uti- 
lizando uma determinada cor. Em segui- 
da, coloca-se o cursor grafico no inte- 



rior da area assim demarcada, e a sele- 
cao adequada & realizada. Se o espaco 
rtao estiver completamente fechado, a 
cor "escapa" para fora do mesmo, po- 
dendo tomar toda a tela. Por isso, con- 
vem sempre completar desenho antes 
de comecar a colori-lo. 

Opcoes mais especializadas variam de 
programa para programa. Alguns pos- 
sibilitam o tracado automatico de ima- 
gens especulares (cbpia invertida), ou a 
c6pia de uma parte do desenho em ou- 
tra posicao. Esta operacao e chamada 
de "carimbo", pois permite ao usuario 
criar, por exemplo, uma floresta intei- 
ra a partir do desenho de uma unica ar- 
vore, ou, para maior variacao, de sua 
copia especular. 



COMO GUARDAR UMA IMAGEM 



Se voce completou um desenho bo- 
nilo e elaborado, certamente desejara 
armazena-Io permanentemente. Muitos 
softwares graficos oferecem essa possi- 
bilidade por meio de um comando — 
dentro, e claro, das limitacoes impostas 
pelo hardware que voce tern a disposi- 
cao. As figuras armazenadas podem ser 
recuperadas depots, com um comando 
de leitura, e os recursos do programa 
permitirao, ainda, que voce as modifi- 
que. Se quiser, combine-as com outras 
figuras, que podem ser obtidas da bi- 
blioteca de icones, fornecidos junto com 
o sistema ou criados por voce. 

Armazene o desenho por tempo in- 
determinado ou utiiize-o em outro pro- 
grama — num jogo, por exemplo. 

Para obter uma copia da sua "obra 
de arte' ' , fotografe a tela usando um fil- 
me em cores, ou copie o desenho em um 
plotter ou impressora grafica. 




A opcao de "zoom" possibilita o desenho de pixels individuals. Um recurso mil as composites e" a repeticao de elementos-chave. 
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QUINA X 



AVALANCHE: A 
ROTINA PRINCIPAL 



TAREFAS DA ROTINA 



PRINCIPAL 



ORIGEM 



ACERTOS INICIAIS 



DANDO A PARTIDA 



Ja criamos uma pagina-titulo e uma 
pagina de instrucoes. Temos urn tema 
musical e urn cenario. Para completer 
o jogo, falta apenas uma rotina que 
controls as demais e de vida a Willie. 



Este e o setimo artigo da serie A va- 
lanche e voce deve estar pensando, com 
razao, que ja e hora de colocar o pro- 
grama em funcionamento. 

Urn jogo em linguagem de maquina, 
porem, precisa de uma rotina principal 
que chame as rotinas de instrucao, de exe- 
cucao musical e de criacao do cenario, 
Essa rotina deve ainda acertar os valores 



das variavets do jogo, tais como o placar, 
o mirnero de vidas e o nivel de dificuldade. 
Sua origem sera o endereco a ser chama- 
do quando quisermos rodar o programa. 
Depois de pronto, o programa sera 
executado automaticamente assim que 
for lido da fita cassete. Por enquanto, 
contudo, nao ha razao para isso. Alem 
do mais, precisamos ter acesso aos c6- 
digos do programa para termina-lo, o 
que seria absolutamente imposstvel se 
sua execucao fosse automatica. 



A listagem apresentada a seguir cot- 
responde a rotina principal que da ini- 



cio a versao do nosso jogo para os mi- 
crocomputadores Spectrum. 

10 HEM org 5B576 

20 REM <jbin call ti 

30 REM Id a, 5 

40 REM Id (57343) ,a 

50 REM Id a,0 

60 REM Id (57344) .a 

70 REM Id hi .0 

SO REM Id (57337) ,hl 

90 REM Id (57339) ,hl 
100 REM Id (57341) ,hl 
110 REM nlv Id a, 19 
120 REM Id (mak+1) .a 
130 REM ret 
140 REM org 58035 
150 REM ti * 
160 REM org 58281 
170 REM Disk * 










A origem e o endereco que chamare- 
mos por intermedio do comando RAN- 
DOM USR para que o programa seja 
executado. Nao se esqueca de anota-lo. 

Os rotulos que fazem parte da lista- 
gem nao sao chamados por esta secao 
do jogo. Eles serao utilizados por roti- 
nas futuras, quando nosso personagem 
tiver morrido e voce" quiser comegar o 
jogo novamente. 



ENDERECOS 



57343, com o auxilio do acumulador. 
Zero e colocado do mesmo modo em 

57344, fazendo com que o nivel de difi- 
cuidade inicial seja 0. 

O escore inicial, zero, e acertado co- 
loeando-se nos enderecos 57337, 
57338, 57339, 57340, 57341 e 57342, por 
meio do par de registros HL. 

Em seguida, A recebe o valor 19, e 
a rotina musical msk & ajustada para 
executar as dezenove primeiras notas da 
melodia Greensleeves. 



A origem corresponde ao endere90 a 
ser chamado por intermedio da instru- 
cao EXEC, quando quisermqs iniciar a 
execucao do programs. Nao se esquega 
de anotar esse numero. 

Os rotulos da listagem nao sao utili- 
zados nesta parte da rotina. Etes serao 
chamados por outras se?oes do progra- 
ma, que publicaremos mais tarde. Sua 
fungao e recomecar o jogo, caso voce 
queira prosseguir quando Willie for fa- 
talmente vitimado. 



P 



O programa comeca chamando a 
sub-rotina ti, que imprime os titulos e 
a pagina de insirucao. 

Varios parametros relativos a conta- 
gem de pontos sao entao estabelecidos. 
O escore propriamente dito i colocado 
nos enderecos 57337 a 57342. O niime- 
ro de vidas fica em 57343 e o nivel de 
dificuidade em 57344. 



ACERTOS INICIAIS 



Para que o jogador tenha direito a 
cinco vidas, o numero 5 6 colocado em 



Esta e a rotina que da inicio a versao 
do nosso jogo para o TRS-Color. 

10 ORG 194 26 

20 GBIN J SB STAET 

30 LDA 15 

40 STA 18239 

50 CLR 18236 

60 LDX #18240 

70 LOB 46 

80 GBINI CLR ,X+ 

90 DECB 

100 BNE GBINI 

110 RTS 

120 START EOU 19000 



DAND0 A PARTIDA 



Antes de mais nada, o programa cha- 
ma a sub-rotina START, responsavel 
pela impressao da pagina-titulo e da pa- 
gina de instrucoes, que abrem o jogo. 
Em seguida, sao estabelecidos diversos 
valores iniciais que inftuem na contagem 
final de pontos. 

O nivel de dificuidade do jogo e ar- 
mazenado no endereco de memoria 
18238. O numero de vidas, por sua vez, 
fica em 18239. O escore propriamente 
dito e guardado em sets bytes, a partir 
do endereco 18240, 





PRIMEIROS ACERTOS 



O niimero inicial de vidas de Willie, 
5, e colocado no acumulador e transfe- 
rido para 18239. A instrucao CLR lim- 
pa a posicao de memoria 18238, para ze- 
rar o nivel de dificuldade. 

O registro X recebe o endereco ini- 
cial dos bytes de escore e o contador B 
recebe o niimero 6 — niimero de bytes 
de escore. A instrucao CLR ,X + lim- 
pa o eomeiido da posicao de memoria 
apontada por X e soma uma unidade ao 
valor de X. DEC B diminui B em uma 
unidade. A instrucao BNE retorna ao 
rotulo GBINI para apagar o proximo 
byte ate que B seja zero. Esse pequeno 
laco limpa todas as posicoes de 18240 a 
18245 — o que equivale a zerar lodos 
os enderecos que se referem ao escore, 
um depots do outro. 



Esta e a rotina principal que da inf- 
cio ao jogo na versao do MSX. 

10 or<j -11670 

20 oin call -12288 



30 


call -12166 


40 


Id a ,5 


50 


Id (-5221). a 


60 


Id a,0 


70 


Id (-5228), a 


80 


Id hi ,0 


90 


Id (-5219), hi 


100 


Id (-5217) .hi 


110 


Id (-5215), hi 


120 


hlv Id a, 19 


130 


Id (-12162) ,a 


140 


ret. 


150 


end 



A origem dessa rotina e o endereco 
que voce chamara por intermedio de 
dois comandos, DEFUSR e USR<0), pa- 
ra comecar a execucao do jogo. Nao se 
esqueca de anotar esse niimero. 

Os rbtulos que precedem as instru- 
coes nao sao chamados nesta parte do 
programa. Serao utilizados pelas rotinas 
que inicializam o jogo quando o pobre 
Willie tiver sido morto e voce quiser jo- 
gar de novo. 



DAND0 A PART1DA 



Inicialmente a rotina chama as 
sub-rotinas -12228 e -12166. Enquanto 



a primeira imprime o titulo e a pagina 
de instrucoes, a segunda cabe executar 
a miisica Greensleeves. 

Os varios parametros da contagem de 
pontos sao, entao, inicializados. O es- 
core propriamente dito e colocado nos 
enderecos -5219 ate -5214. O niimero de 
vidas fica em -5221 e o nivel de dificul- 
dade, em -5228. 



ACERTOS INICIAIS 



O numero 5 6 colocado em -5221 , por 
meio do acumulador, para que o joga- 
dor inicie a partida dispondo de cinco 
vidas. Do mesmo modo, e colocado 
em -5228, para que o nivel de dificulda- 
de inicial seja igual a 1. 

Os enderecos -5219, -5218, -5217, 
-5216, -5215 e -5214, por sua vez, sao 
preenchidos com o valor 0, por interme- 
dio do par de regisiros HL, zerando o 
escore inicial. 

Em seguida, a rotina responsavel pela 
miisica — colocada no endereco -12166 
— e" ajustada para executar exclusiva- 
mente as dezenove primeiras notas da 
melodia Greensleeves. 



971 




Programas sofisticados e rapidos 
exigem a cornbinacao de c6digo 
de maquina e BASIC. Aprenda aqui 
uma serie de truques para tornar 

mais eficaz a interacao entre ambos. 



QElfttti 



As mais modernas versdes do inter- 
pretador BASIC desenvolvido pela em- 
presa norte-americana Microsoft foram 
implementadas nos microcomputadores 
das linhas TRS-80, TRS-Color, MSX e 
IBM-PC. Tanto elas quanto o MBASIC 
(usado em qualquer micro que tenha o 
sistema operational compativel com o 
CP/M) possuem diversos recursos para 
dar acesso direto as posicoes absolutas 
de memdria do computador, bem como 
a execucao de programas em c6digo de 
maquina a partir de urn programa em 
BASIC. 

J a estudamos os principals element os 
do BASIC para efetuar essas funcdes: 
o PEEK e o POKE. Porem, para uma 
interacao mais eficaz entre programas 
em linguagem de maquina e programas 
em BASIC, outros comandos sao neces- 
sarios. Destacam-se, entre eles, o DE- 
FUSE, o USR e o VARPTR. 

Em artigos anieriores, vimos diver- 
sos exemplos de como executar urn pro- 
grama em linguagem de maquina a par- 
tir de urn programa em BASIC. O me- 
todo mais comum consiste em armaze- 
nar o programa em cddigo de maquina 
em uma parte nao usada da memoria 
RAM (ou seja, em uma parte nao sujei- 
ta a ser invadida pelo programa BASIC 
ou por sua area de variaveis), e execu- 
ta-Io por meio de um comando USR co- 
locado em um ponto qualquer do pro- 
grama em BASIC. O comando DE- 
FUSR, ou equivalente, e usado para in- 
dicar a locacao inicial do programa em 
linguagem de maquina. 

Esse metodo, entretanto, apresenta 
alguns problemas: 

• O programa em cddigo de maquina 
precisa ser montado a parte e armaze- 
nado em fit a ou disco, para, entao, ser 
carregado na memoria. 
■ £ necessario reservar uma parte pro- 
tegida da memdria para armazenar o 
programa, o que pode ser inconvenien- 
te em muitos tipos de aplicacao. 



A FUNCAO VARPTR 



Examinaremos, neste artigo, uma 
tecnica alternativa, que consiste na uti- 



lizagao da funcao VARPTR para arma- 
zenar programas em linguagem de ma- 
quina dentro do prdprio programa em 
BASIC. Essa tecnica proporciona pode- 
rosos recursos de programacao para os 
usuarios das linhas TRS-80, TRS-Color 
e MSX (os micros das linhas Sinclair e 
Apple dispdem do comando CALL, 
equivalente ao USR, mas nao tern a fun- 
cao VARPTR). Veremos aqui como em- 
pregar a funcao VARPTR em micros da 
linha TRS-80; em artigos futuros trata- 
remos do TRS-Color e do MSX. 

O "truque" e muito simples: em vez 
de armazenarmos um programa em co- 
digo de maquina numa parte reservada 
de memdria, nds o "enxertamos" dentro 
do programa em BASIC que o utilizara. 
Assim, quando o programa em BASIC 
for carregado da ftta ou disco, para ser 
executado, trara junto, automaticamen- 
te, o programa ou programas em lingua- 
gem de maquina. Esse me'todo permite 
a definicao e armazenamento do ntime- 
ro que quisermos de rotinas em lingua- 
gem de maquina, cada qual bem identi- 
ficada dentro do programa em BASIC. 

Mas onde armazenar c6digo de ma- 
quina dentro de um programa em BA- 
SIC? Existem diversas tecnicas disponi- 
veis. As mais flexiveis, entretanto, usam 
o seguinte recurso: uma constante alfa- 
numerica (por exemplo, PGS) e defini- 
da dentro do programa, com um com- 
primento correspondente ao niimero de 
bytes do programa em cddigo de maqui- 
na. Suponhamos, por exemplo, que a 
rotina em cddigo de maquina tera doze 
bytes de extensao. Definimos, entao: 

20 PCS-" 

Observe que foram colocados doze 
espacos em branco entre as aspas da li- 
nha 20, No lugar desses espacos, porem, 
poderiam introduzir quaisquer caracte- 
res, iguais ou diferentes. O que vale e 
o niimero correto de caracteres. Muitos 
programadores preferem usar uma se- 
qiiencia numerica para assegurar que o 
niimero de bytes seja correto: 

20 PG$-"123456769012" 

Feito isso, carregamos os bytes dts- 
poniveis (que estao automaticamente fi- 
xos e reservados na area de memdria de 
programa) na variavel PG$, com os cd- 



digos decimals, binaries, octais, ou he- 
xadecimais correspondentes ao progra- 
ma em cddigo de maquina. 

Um pequeno programa, contendo 
um laeo FOR... NEXT, pode se encar- 
regar dessa tarefa. Ele lera os eddigos, 
armazenados em linhas DATA, e os co- 
locara nas locacoes absolutas de memd- 
ria, correspondentes a variavel PGS, 
usando comandos POKE. 

A operacao so precisa ser feita uma 
vez. Depots, o programa de carTegamen- 
to pode ser apagado. 

O processo e simples, mas ha um de- 
talhe tecnico a ser resolvido: a localiza- 
cao das posicoes da memdria onde PGS 
esta armazenada. Teoricamente, pode- 
mos fazer esse c&lculo para qualquer 
programa, desde que saibamos a loca- 
cao absoluta da memdria onde ele co- 
meca (geralmente fixa para cada tipo de 
computador), e quantos bytes gasta ca- 
da linha do programa ate chegarmos a 
linha em que PGS e definida. 

Na pratica, pordm, tal calculo e difi- 
cil e demorado, podendo tornar-se real- 
mente trabalhoso se o programa ainda es- 
tiver em desenvolvimento. Nesse caso, ca- 
da alteracao no programa, feita acima da 
linha onde a variavel PGS e definida, al- 
tera a sua locacao na memoria. 



ONDE ESTAO AS VARIAVEIS? 



Felizmente, 6 possivel encarregar o 
prdprio programa de calcular automa- 
ticamente a localizacao de PGS na me- 
mdria. Para isso, devemos usar a fun- 
cao VARPTR, cujo nome deriva da ex- 
pressao inglesa VARiable PoinTeR, ou 
apomador de variavel. 

Para entender como essa funcao tra- 
balha, precisamos saber como o compu- 
tador armazena cadeias alfanumericas 
na memdria. Como vimos no artigo da 
pagina 947, seu programa pode ter aces- 
so direto a toda essa informacao por 
meio da funcao VARPTR. 

Recapitulando: toda vez que uma va- 
riavel alfanumerica e definida, o inter- 
pretador BASIC cria tres bytes aponta- 
dores, que cont£m o comprimento da 
cadeia alfanumerica e o endereco abso- 
luto de onde ela se inicia. Por exemplo, 
para uma variavel AS: 



USO DE ROTINAS EM 
CODIGO DE MAQUINA 



DENTRO DE PROGRAMAS BASIC 
OS COMANDOS USR E DEFUSR 



COMO ARMAZENAR ROTINAS 



U SR EM UM PROGRAMA 

DIFERENCAS ENTRE BASIC 



PARA CASSETE E PARA DISCO 

UM PROGRAMA PARA 

PREENCHER A TELA 



VARPTR(AS) ■ locacao do apontador de AS 
PEEK(VARPTR<A$)) = comprimento de AS 
PEEK(VARPTR(A$)+1) = byte menos 

significative 

do endereco 
de A$ 
PEEK(VARPTR(AS) + 2) = byte mais 

significativo 
do endereco 
deAS 



UM PROGRAMA COMPLETO 



Sabendo como determinar o endere- 
co inicial de uma variavel string na me- 
moria, fica facil escrever urn programa 
para carregar codigo de maquina na 
mesma. Vejamos, por meio de urn 
exemplo, como isso funciona. 

A rotina em tinguagem de maquina, 
apresentada a seguir, preenche toda a te- 
la com um caractere qualquer, previa- 
rnente colocado na primeira posicao da 
tela (por exemplo, se colocarmos * na 
posicao da tela, uma chamada a roti- 
na preenchera a tela com asteriscos qua- 
se que instantaneamente). 

10 ORG OBFFOH :ORIGEM 

20 LD HL, 15360 ; HL APONTA P/0 

30 LD DE. 15361 ;DE APONTA P/l 

40 LD BC.1023 ; POR 1023 VEZES 

50 LDIR rREPETE 

60 RET ;VOLTA AO BASIC 

70 END 

Quando traduzido por um Assem- 
bler, esse curto programa daria doze 
bytes em hexadecimal: 



Linha 20 


21 


00 


3C 


Linha 30. 


11 


01 


3C 


Linha 40 


01 


FF 


03 


Linha50 


ED 


BO 




Linha 60 


C9 







que, em decimal, correspondent a: 

33 , , 60 , 17 , 1 . 60 . 1 . 255 . 3 . 237 , 176 
,201 

Vamos escrever agora nosso progra- 
ma principal — ou seja, o programa em 
linguagem BASIC que utiliza a rotina 
em codigo de maquina. 

Nao rode o programa ainda, pois o 
codigo de maquina nao foi carregado: 



10 CLS: PRINT" PROGRAMA DE TESTE 
20 PGS-" 

30 D-PEEK (VARPTR (PGS )+l) + 256 
* PEEK<VARPTR(PGS>+2) 
40 DEFUSR0-D 

60 PRINT: INPUT "CARACTERE " : CS 
90 CLS: PRINT CS 
•100 X-USRO(O) 
110 FOR 1-1 TO 1000: NEXT I 
120 GOTO 10 

O programa funciona da seguinte 
maneira: a linha 20 define um string fi- 
xo, PGS, na memdria de programa, 
com o comprimento de doze bytes. 

As linhas 30 e 4-0 localizam o endere- 
co da variavel PGS e o definem como 
inicio de uma rotina de maquina. 

O comando usado para isso denomi- 
nate DEFUSR, que e uma abreviatura 
da expressao DEFine (JSeR function. 
Seu objetivo e informar ao programa 
principal o endereco absoluto inicial da 
rotina. Nos microcomputadores da li- 
nha TRS-80 com BASIC para disco, 
podem-se definir ate dez rotinas de 
usuario simultaneamente, por meio dos 
comandos DEFUSR0 a DEFUSR9, que 
corresponderao as chamadas USR0 a 
USR9. 

Para os microcomputadores da linha 
TRS-80 com BASIC para cassete, pode- 
se definir apenas uma rotina USR. Nesse 
caso, nao se pode contar com o coman- 
do DEFUSR para informar o seu ende- 
reco de partida. Temos, assim, que dar 
dois POKE em um apontador especifi- 
co da memoria de trabalho do compu- 
tador. Eles correspondem aos bytes de 
endereco 16526 (para o byte menos sig- 
nificativo) e 16527 (para o byte mais sig- 
nificativo). Esse processo torna possivel 
copiar diretamente os bytes obtidos pe- 
la funcao VARPTR. Para computado- 
res com BASIC para cassete, portanto, 
devemos substituir as seguintes linhas no 
programa anterior: 

30 POKE 16526, PEEK(VARPTR< 

PGS)+D 

40 POKE 15527, PEEK { VARPTR ( 

PG$)+2) 

Como a variavel PGS esta fixa den- 
tro do programa, a definicao com DE- 
FUSR ou com POKE so precisa set rea- 
lizada uma vez. 

A linha 80 pede ao usuario que entre 
pelo teclado o caractere com que deseja 



preencher a tela. A linha 90 limpa a mes- 
ma e coJoca o caractere indicado na pri- 
meira posicao. 

Finalmente, a linha 100 executa a ro- 
tina, por meio da funcao ficticia USR (da 
expressao, em ingles, USeR function). 
Como nao se trata de um comando, USR 
pode ser colocada dentro de uma expres- 
sao matematica valida. No exemplo, nao 
precisamos passar nenhum argumento 
para a rotina de maquina (o que seria fei- 
to por meio do t vaIor entre parenteses), 
nem obter um valor de retorno (o que se- 
ria feito atraves do prdprio valor da fun- 
cao USR). Como vimos anleriormente, 
nos microcompuiadores com BASIC pa- 
ra disco, cada DEFUSRn (onde it e um 
numero inteiro entre e 9) corresponde 
a rotina USRn. 

Como os computadores com lingua- 
gem BASIC para cassete aceitam ape- 
nas uma rotina de usuario, devemos 
substituir a linha 100 por: 

100 X'USRCO) 



PROGRAMA DE CARREGAMENTQ 



Antes de usar ou gravar o programa 
principal, e necessario carregar o pro- 
grama de eddigo de maquina na varia- 
vel PGS. Para faze-lo, anexe ao progra- 
ma anterior as seguintes linhas: 

50 FOR I*-D TO D+12:READ Nt : 

POKE It.Nt : NEXT It 

60 DATA 33. 0. 60, 17. 1, 60, 

1, 255, 3, 237, 176, 201 

70 STOP 

O programa pode ser apagado com: 

DELETE 50-70 

Voce notara que, ao listar o progra- 
ma principal, a linha 30 nao estara mais 
vazia: ela contera eddigos graficos e ate 
mesrao comandos em linguagem BA- 
SIC, dependendo da linha do computa- 
dor que vocd estiver usando. 

Voce pode agora gravar e executar o 
programa quantas vezes quiser, sem ter 
que carregar separadamente o progra- 
ma em linguagem de maquina. E, e cla- 
ro, at£ dez variaveis alfanumericas di- 
ferentes poderao ser usadas no mesmo 
programa. Elas definirao rotinas de ma- 
quina separadas, que serao chamadas de 
USR0, USR I, USR2 etc. 
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AAGtAN 






HA 
NA (2) 



jogo esta completo. Armado com suas 
flechas, Freddy observe os baldes que 
comecam a subir. Precisard da muito 
sangue frio para estoura-los e impedir 
qua a aranha venha am sua direcfio. 




Ja digitamos as rotinas encarregadas 
de inicializar o jogo e de fazer a monta- 
gem dos graficos. 

Vamos agora completar o programa, 
adicionando as rotinas de animacao. 



LACO PRINCIPAL 



1.0 CLEAR 65 ZB? 

GOSUB 10 00 

KOBua j oon 

50 IF sx<>29 THEN 

/0 CiOiHIB 400 

90 GOSUB 500 

100 GOSUB 200 
GOTO 50 



LULS] 



HOME ! PRINT 



18617 



10 TEXT 
ENTO. . ." 
15 HIMEM 

GOSUB .1.000 

GOSUB 3000 

IF AX < > 28 THEN GOSUB 



20 

30 

50 

00 

70 

90 

100 

50 



GOSUB 4 00 
GOSUB 5 00 
GOSUB 210: 




IF DD - THEN 



GOSUB .300 



IF dead-0 THEN 



10 CLS 3: PRINT #266, "INICIALIZ 

ANDO" ; : SCREEN 0,1 

20 GOSUB 1000 

25 GOSUB 1600 

30 GOSUB 3000 

50 IF AX<>29 THEN GOSUB 300 

70 GOSUB 400 

90 GOSUB 500 

100 GOSUB 210: IF DD-0 THEN 50 



10 CLS: COLOR 1,14,14 

15 OPEN "GBP:" FOR OUTPUT A3 #1 

20' GOSUB 1000 

30 GOSUB 3000 

50 IF AX<>29 THEN GOSUB 300 

70 GOSUB 400 

90 GOSUB 500 

100 GOSUB 210: IF DD-0 THEN 50 



Esse programa, o principal do jogo, 
foi estruturado de modo a chamar ape- 
nas as sub-rotinas necessarias. Primei- 
ramente, ele define a tela e reserva es- 
paco na parte superior da mem6ria (Ap- 
ple, TK-2000 e Spectrum). As sub- 
rotinas chamadas nas linhas 20 a 30 (lis- 
tadas no artigo anterior) tSm a funcio 
de definir os blocos graficos e iniciali- 
zar o valor do recorde. 

O laco principal do programa vai da 
linha 50 a linha 100, e se repete enquan- 
to Freddy estiver vivo (variavel dead ou 
DD maior do que zero). Esse laco 6 res- 
ponse vel pelo movimento da flecha, da 
aranha, de Freddy e dos baloes. Cada 
rotina chamada atualiza as variaveis 
dentro do laco. 



H0RA DO "ALMOCO' 



105 LET a(xinc}=l 
110 FOR x=b{xdoh) 
500: NEXT x 
.120 LET s(ymc) =1 



OOBUB 



a(xinc) 







-0 

125 

130 

POKE 

29;" 

140 

150 

160 

.0; 

FLAS 

ra j 

165 

THEN 

170 

GOTO 

175 

THEN 

180 



FOR y=a(ypos) TO 19 
IF y=*ray AND ax- 2 9 THEN 

2.160 7,60: PRINT AT my + 3. , 

": POKE 23697,252 
GOSUB 500 
NEXT y 

POKE 23607,60: PRINT AT 10 
INK 2; PAPER 7; BHJGHT 1; 
H 1 ; "Voce est.a mort.o! Out 
ogada ?";j POKE 2360 7,252 
LET aS-INKEYS: IF a$-"" 

GOTO L60 
IT a$="s" OR aS-"S" THEN 

30 
IF aS<>"n" ANO a$<>"»" 

GOTO J 60 
POKE 2360 7,60: CLS : STOP 



105 SCXD-1 

110 FOR X-S(XP) TO 29:GOSUB 500 



105 SCXD-1 

110 FOR X=S(XP) 

:NEXT X 

120 SlYI)-l:S(XI)-0 

125 FOR Y-S(YP) TO 19 

130 IF Y-MY THEN PUT SPRITE 2,( 

X2.Y2) ,0,FD:PUT SPRITE 3 , (X2 , Y2 

) ,0,FL 

140 GOSUB 500 

150 NEXT Y 

160 PLAY " ABCDEF ": FOR X-l TO 300 

:NEXT:SCREENO:CLS:PRINT"Voce ea 

td morto!" : LOCATE 0, 12 : PRINT" Jo 

ga novamente? (3/N) " 

165 AS»INKEY$:IF A3-"" THEN 165 

170 IF A3" "3" THEN RUN 

175 IF A3<>"N" THEN 160 

180 CL3:END 





HIE] 



GOSUB 



105 S(XI) = 1 

110 FOR X ■ S(XP) TO 29: 

500: NEXT X 
120 S(YI) = ) :S(XT) <" 
125 FOR Y - S(YP) TO 19 
130 HCOLOR= 0: FOR X = 16 TO 2 
* 8 + X TO 260, Y 
HCOLOR- 3 



4: HPLOT 230.Y 
* 8 + X: NEXT 
140 GOSUB 500 
150 NEXT V 
160 FOB SL = 1 
as (7) ; : NEXT : 



TO 5: 
TEXT 



PRINT 
HOME 



: P 



RINT "VOCE ESTA MORTO ! " : VTAB 1 
5: PRINT "QUER RECOKECAR? (S/N) 

1/0 GET A$ 

180 IF AS = "S" THEN HOME : O 

OTO 30 

190 HOME ! END 

Apos a remocao de todas as portas da 
gaioia da aranha, a variavel dead (ou 
DD, nos ouiros microcomputadores) as- 
sume o valor 1 e as linhas 105 a 180 sao 
executadas (190 no Apple e no TK-2O00). 

A aranha move-se horizontalmente 
ate chegar logo acima de Freddy. Em se- 
guida, realiza urn rnovimento vertical, 
alcancando nosso infeliz personagem, 
que i, entao, devorado. Quando isso 
ocorre, o jogador tem a opcao de jogar 
mais uma vez (linhas 160 a 180). No pro- 
grama do Spectrum, deve-se colocar o 
valor 60 na posicao 23607 para que to- 
do o conjunto de caracteres seja usado 
novamente. 



210 LET b (count) =b (count) 
IF b( count ><>0 THEN GOTO 
220 LET b (count. ) =b (maxcou 
PRINT AT h(ypos) +1 ,b(xpoa 
";: LET b ( ypos) =b (ypoa) - 1 
b(ypos)=4 THEN GOSUB 600 
POKE 2 3607,60: PRINT AT 1 
3-props)*9s'"";AT 2, 10+ (3 
)*«;" " : POKE 21607,252: 

propa="propa-l 

225 IF propa=0 THEN LET 

1 

2.10 IF (tayOb(ypos) AND 

(ypoa)+l) on (dx<b(xpoa)- 

ax>b(xpos)+U ) THEN GOTO 

240 LET acore=acote+b(poj 

GOSUB 600: TF BCOreXusco 

THEN LET hiacore-acore: 

2360 7,60: PRINT AT 0,23; 

i PAPER 6: hi score: POKE 2 

252 

245 GOTO 380 

250 GOSUB 4100 

280 RETURN 



-1: 

280 
nt) : 
) i" 

: IF 

. L0+( 
props 
LET 

dead= 

ayOb 

i on 

250 
nt-a) : 
re 

POKE 
INK 
360 7. 



210 B(CT)=b(CT)-1 :IF B (CT) <>0 T 

HEN 280 

220 B(CT)=B(MC) 

222 B(YP)=B(YP)-1 ■ TF B[YP)=4 TH 

EN GOSUB 600 -LINE { (10+ ( (3-PP) * 

9) )*8,7)-((10+({3-PP)*9) }*8+7,2 

4) ,14,BF:PP=PP-1 

225 IF PP=0 THEN DD-1 

230 IF ((AYOB(YP) AND AYOBtYP 

Ml) OR (AX<B(XP)-1. OR AX>B(XP) 

+1)) THEN 250 

240 5C=SC+B(PO) : GOSUB 600:1F SC 

>HS THEN HS=SC:GOSUB J 700 

245 GOTO 400 

250 GOSUB 4300 

2B0 RETURN 



HDE] 



IF BCCT) 



Q 



■B(CT)-1:IF B(CT)<>0 T 



210 BfCTV 
HEN 280 

220 B{CT)-B(MC) 

221 B{¥P)-B(YP)-1: IF B(YP}-4 T 
HEN X2-BCXP)*8:Y2-B(YP) *B+8 : PUT 
(X2,Y2)-(X2+15,Y2+15) ,SP,PSET:G 
0SUB 600:X2»{10+(3-PP)*9)*8:PUT 

(X2,8)-(X2+7,15) ,S1,P3ET:PUT(X 
2,16)- {X2+7 , 23 ) , SI , PSET : PP-PP-1 
225 IF PP-0 THEN DD-1 
230 IF ((AYOB(YP) AND AYOBfVP 
)+U OR (AX<B(XP>-1 OR AX>B(XP) 
+1) ) THEN 250 

240 SC-SC+B{PO) :X2-B(XP)*8:Y2-( 
B(YP)+l)*B:PUTOC2,Y2)-(X2+15,Y2 
+15) ,SP, PSET: GOSUB 600: IF SOHS 



210 B(CT) = B!CT) - 

< > THEN 280 
220 B(CT) - B(MC) 
222 B(YP) ■ B(YP) - 1: TF B CYP) 

- 4 THEN X2 - B(XP) * 8:Y2 = B 
CYP) * 8 + B: HCl>LOR= 0: DRAW B 
A AT X2.Y2: GOSUB 600: HCOLOR= 
0: FOR X = TO 6: HPLOT X + (4 

- PP) * 77,4 TO X + (4 - PP) * 
75.22: NEXT :PP = PP - 1 

225 IF PP = THEN DD = 1 

230 IF ((AY < > B(YP) AND AY 

< > B(YP) + 1) OR (AX < B(XP) 

- 1 OR AX > B(XP) +1)) THEN 25 



240 SC = SC + B(PO):X2 = B (XP) 

* B:Y2 = (B(YP) + ]) * 8: HCOLO 

R= 0: DRAW BA AT X2.Y2: 

3: GOSUB 600: TF SC > 
HS = SC: GOSUB 1700 
245 GOTO 400 
250 GOSUB 4300 
280 RETURN 

Os elementos mais importances da 
matriz do balao sao b (count) e b (max- 
count), para o Spectrum, e B (CT) e B 
(MC), para as outras linhas. Cada vez 
que a rotina e acionada, a linha 210 de- 
crementa b (count) ou B (CT), quando 
eia atinge 0, o balao se move. Em segui- 



HCOLOR= 
HS THEN 




da, a linha 220 copia o numero de b 
(maxcount) para b (count) — ou B (MQ 
para B (CT>, nos demais computadores. 
A velocidade do balao & determinada pe- 
lo \ alor de b (maxcount) — ou B (MC). 
A linha 220 verifica se o balao foi atin- 
gido ou se chegou ao topo da tela 
Se o balao foi atingido, o placar 
crementado; se ele chegou ao topo, 
porta e rernovida, Quando todas as . 
tas forem removidas, a variavel dead (ou 
DD) assume o valor 1 , 



ESTOURQ DO BALAO 



300 PRINT AT ay .ax;" ": LET 
ax-ax-1: IF ax<0 THEN LET ax> 
29: PRINT AT my+1 , 29; *e" : LET. 
ay-my+1 : RETURN 
310 IF {(ay-bCypoa! OR ay»bl 
os)+l) AND <ax-=b(xpos) OR ax= 
(xpos}+l)) THEN LET score-BCo 
re+b(pointa) ; GOSUB 600: IF ac 
ore^hiscore THEN LET hiBcore- 
score: POKE 23607,60: PRINT AT 

0.23; INK 0; PAPER 6; hi score: 

POKE 23607,252 
330 IF ax<>29 THEN GOSUB 4100 
340 RETURN 

D 

300 PUT(AX«8,AY*e)-(AX*8+15.AY* 
8+7) ,S2,PS£T: AX-AX-1: IF AX<0 TH 

EN AX-29:PUT(232, (KY+1 ) *8) - (239 

. (MY+1) *8+7) ,E.PSET:AY-MY+I:RET 

URN 

310 IF ((AY-B(YP) OR AY-B(YP)+1 

) AND (AX»B(XP) OR AX-B(XP)+D) 

THEN SOSC+B(P0) :X2-B(XP)*8:Y2 
«B(YP)*8+8:PUT(X2,Y2>-CX2+15,Y2 
+15) ,SP,PSET:GOSUB 600:IF SOHS 

THEN HS-SC: GOSUB 1700 
330 IF AX<>29 THEN GOSUB 4110 
340 RETURN 



fffi 



300 AX*AX-l:IF AX<0 THEN AX=29: 
PUT SPRITE 3, (232, <MY) *8) , 4.FL: 
AY=MY: RETURN 

310 IF <(AY=B{YP) OR AY=B(YP)+1 
) AND (AX=EHXP) OR AX = B (XP) + I ) ) 



THEN SC = SC+B(l>0) : GOSUB 600: IF 
SOHS THEN HS = SC-C!OSUB 1700 
330 IF AX<>29 THEN GOSUB 4110 
340 RETURN 



HIE] 



300 HCOLO&= 0: DBAW FL AT AX * 

8, AY * 8: HCOL0R= 3: AX = AX - 
1: IF AX < THEN AX = 28: DRAW 

FL AT AX * S, (MY + 1) * 8 : AY - 

MY + 1 : RETUP.N 
310 IF ((AY = B(XP) OR AY = B( 
YP) + 1) AND (AX = B(XP) OR AX 
- B(XP) + 1)) THEN SC = SC + B( 
PO):X2 ■ B(XP) * 8:Y2 ■ B(YP) * 

8: HC0LOR= 0: DRAW BA AT X2.Y2 
: HC0L0R= 3: GOSUB 600: If SC ) 

HS THEN HS = SC : GOSUB 1700 
330 IF AX < > 28 THEN 
4110 
340 RETURN 

Esta e a rotina que anima a flecha. 
Ela apaga a imagem anterior e coloca a 
nova na posicao seguinte, determinada 



$6 



'1 



i /'■ 






**k 



w 



>:> 



pcia variavel AX. Essa variavel e decre- 
mentada na linha 300. Para evitar que 
a flecha seja posta fora da tela, AX e 
recolocada em 29 (28, no Apple e no 
TK-2000) sempre que atinge urn valor 
inferior a zero. Quando o valor de AX 
e 29 (ou 28), a flecha esta com Freddy, 
e, como o balao nao pode ser estoura- 
do, a roiina e abandonada. 

Logo depois do disparo da flecha — 
AX < >29 — , a linha 310 verifica seela 
atingiu o balao e, em caso positive, au- 
menta o placar. A rotina da linha 600, 
que promove o estouro do balao, e, en- 
tao, chamada. 

A linha 330, por sua vez, chama a 
sub-rotina que desenha a flecha na po- 
sicao de Freddy. 



V 



iS 



971 



FREDDY NA ESCADA 


400 


LET aS=INKEY$: IF a3""" 


THEti 


RETURN 




410 


IF aS-"Z" 


OR aS-"z" THEN 


GOTC 


450 




420 


IF a$-*c" 


OR a$-"C" THEN 


GOTC 


440 




430 


IF aSO" 


" THEN RETURN 


432 


IF ax<>29 


THEN RETURN 


4 34 


LET ax-2B 


: PRINT AT ay. 29 i 


m w , 


RETURN 




440 


IF my=19 


FHEN RETURN 



445 PRINT AT my, 30; INK 6;"kl" 
: LET my=my+l: PRINT AT ay ,29; 
" ■ : IF ax-29 THEN LET ay-ay+ 

1 

446 GOTO 4 70 

450 IF tny-5 THEN RETURN 

460 PRINT AT my+2 , .30 ; INK 6;" 

kl": LET my-py-l: PRINT AT ay. 

29;" "; IF sx=29 THEN LET ay- 

ay-1 

4 70 GOSUB 4000: RETURN 



400 IF PEEK (337) -255 THEN RETUR 

N 

410 IF PEEK (341) -247 THEN 450 

420 IF PEEK (342) -247 THEN 440 

430 IF PEEK (345)0247 THEN RETU 

RN 

432 IF AX029 THEN RETURN 

434 AX-28:PUT(232,A¥*S)-(239,AY 

*8 + 7) , SI. PSET: RETURN 

440 IF MY- 19 THEN RETURN 

445 PUT(240,MY*8)-(255.MY*8+7) , 
KL,PSET:M¥«M¥+l:PUT(2 32 f AY*8)-( 
239,A¥*8+7) ,S1 , PSET:IF AX-29 TH 
EN AY-AY+1 

446 GOTO 470 

450 IF MY-5 THEN RETURN 

460 PUT(240,MY*B+i6)- (255,M¥*8+ 

23) ,KL,PSET:MY-MY-1:PUT(232,A¥* 

8)-(239.AY*8+7) , SI, PSET: IF AX-2 

9 THEN A¥=AY-1 

4 70 GOSUB 4000: RETURN 



Wi 



400 AS=INKEYS 

410 IF A3=CHR3(30) THEN 450 

420 IF AS-CHRS(31) THEN 440 

430 IF A$OCHRS<32) THEN RETURN 

432 IF AX029 THEN RETURN 

434 AX- 28: RETURN 

440 IF MY- 21 THEN RETURN 

445 MY-«Y+l:IF AX-29 THEN AY=AY 
+1 

446 GOTO 470 

450 IF MY-5 THEN RETURN 

460 MY-MY-1:IF AX-29 THEN AY-AY 

-1 

470 GOSUB 4000: RETURN 



LB El 



400 POKE - 16368,0: FOR X - 1 
TO 10: IF PEEK ( - 16384) > 1 
27 THEN X - 10: NEXT : PK - PEE 
K ( - 16384) : GOTO 410 
40S POKE - 16368,0: NEXT : RE 
TURN 

410 IF PK - 216 THEN 440 
420 IF PK - 193 THEN 4S0 
4 30 IF PK < > 160 THEN RETUR 
N 
432 IF AX < > 28 THEN RETURN 

434 AX - 27: HCOLOR- 0: DRAM FL 
AT 224, AY * 8: HCOLOR- 3: RETU 
RN 

440 IF MY - 19 THEN RETURN 
445 HCOLOR- 0: DRAW FD AT 240, 
MY * 8;MY - MY + 1 : IF AX - 28 



THEN DRAW FL AT AX * 8, AY * 8 : 

AY-AY+1 

446 HCOLOR- 3: DRAW FD AT 240, 

MY * 8 

44B GOTO 470 

45.0 IF MY - 5 THEN RETURN 

460 HCOLOR- 0: DRAW FD AT 240, 

MY * 8:MY - MY - 1: IF AX - 28 

THEN DRAW FL AT AX * 8, AY * 8: 

AY = AY - 1 

465 DRAU FD AT 240, MY * 8 

470 HCOLOR- 3: GOSUB 4000: RET 

URN 

Em todos os programas, as linhas 400 
a 420 ISem o teclado, enquanf o as linhas 
430 e 440 verificam se a barra de espa- 
50s foi pressionada e se Freddy esta com 
a flecha. 

Enquamo rosso personagem se mo- 
vimenta para cima ou para baixo na es- 
cada, os caracteres desta tern que ser re- 
postos (ou a escada acabara desapare- 
cendo). Se AX = 29 {28, na versao pa- 
ra Apple e o TK-2000), a flecha tam- 
bem deve ser movimentada. 

Para que o programa funcione ade- 
quadamente no TK-2000, os usuarios 
precisarao adaptar o trecho que vai da 
linha 400 ate a linha 405. Consulte o ar- 
tigo de Programafao BASIC que trata 
da substituicao da funcao INKEYS nes- 
se microcomputador e faca, entao, as al* 
teracoes que to rem neeessarias. 



AS PERNAS DA ARANHA 



300 LET temp- 
510 IF temp<l 
ps)*9 THEN L 
c) : GOTO 500 
520 POKE 2360 
YPoa) , a (xpofl) 
1 , a (xpos) ; " 
530 LET s(ypo 
) : LET B{xpoa 
ture) -1-a (pic 
54 RETURN 



a (itpo»)+a (xinc) 

OR tenp>8+(3-pro 
ET a (xinc) --a(xin 

7,60: PRINT AT fl( 
;" ";AT a (ypoa) + 
": POKE 23607.252 
s}-s(ypoa)+B(yinc 
)-temp: LET a (pic 
ttire) : GOSUB 4200 



D 

500 TE-S(XP)+S(XI) 

510 IF TE<1 OR TE>8+(3-PP)*9 TH 

EN 8(XU — S CXI) : GOTO 500 

520 X2-S(XP)*8:Y2-S(YP)*8:PUT(X 

2,Y2)-(X2+15,Y2+15) , SP , PSET 

530 S(¥P>-S{YP)+S(¥I) :S(XP)-TE: 

S(PI)-1-3(PI) :GOSUB 4200 

540 RETURN 



m 



500 TE-S(XP)+S(XI) 

S10 IF TE<1 OR T£>8+(3-PP)*9 TH 

EN S(XI)--StXI) :GOTO 500 

530 S(YP)-S(YP)+S(¥I) :S(XP)-T£: 

5<PI>-1-8(PI) :GOSUB 4200 

540 RETURN 



tai&B 



500 TE - S(XP) + S(XI) 

510 IF TE < 1 OR TE > 8 + (3 - 

PP) * 9 THEN SCXI) - - S(XI): 

GOTO 500 
520 X2 ■ S(XP) * 8:Y2 - S(YP) * 

8: HCOLOR- 0: DRAW S(PI> ♦ 1 A 
T X2.Y2: HCOLOR= 3 
530 S(YP) » S(YP) + S<YI) :S(XP) 

= TE:S{PI} - 1 - S(PI): GOSUB 
4200 
>40 RETURN 

A ultima rotina de animacao trata da 
aranha marciana. Para tornar o jogo 
mais emocionante, eia nao fica parada 
esperando por seu "almoco". Ao con- 
trario, movimenta-se impacientemente 
entre a parede e as portas. Desenhamos, 
por isso, duas figuras para a aranha. O 
numero da figura corrente, manipulado 
pela linha 530, e guardado em s (pictu- 
re), no programa do Spectrum, e em S 
(PI), no dos demais micros. 

As linhas 500 e 510 tern a funcao de 
impedir que a aranha escape de sua gaio- 
la antes que todas as portas tenham si- 
do removidas. 



ERA UMA VEZ UM BALAO 



600 PRINT AT b (ypoa) , b (xpos) ; 

BRIGHT 1; INK b (colour ); "oh" ; 

AT b(ypoa>+l.b(xpoa) ;"ij" 

610 POKE 23607,60 

620 PRINT AT 0,14; INK 0; 

PAPER 6; score 

630 SOUND .5,-20 

635 LET bl-bl-1: PRINT AT 0,7: 

INK 0; PAPER 6:bl;: IF bl-9 

THEN PRINT INK 0; PAPER 6;* 

IP 

637 IF bl-0 THEN LET bl»15+5* 
level: LET level-level+1 : LET 
propa-propa-1: PRINT INK 0; 
PAPER 6; AT 0,7;bl;AT 0,2: level 
: GOSUB 6000 
640 PRINT AT b(ypoa) ,b(xpoa) : * 

";AT b (ypoa) +l,b (xpos) ; " * 
650 PRINT AT ay, ax;" ": LET a 
x-29: LET ay-my+1 
660 POKE 23607,252: GOSUB 4000 
: GOSUB 5000: RETURN 

il 

600 X2-B(XP)*8:¥2-B(YP)*B:PUT ( 

X2.Y2)-(X2+15,Y2+15) .GJ.PSET 

620 COLOR 0:LINE(114,2)-(150.7) 

, PSET , BF ; NU-SC :DRAW"C1 ; BMU4 , 2 " 

: GOSUB 1650 

630 PLAY*V31;T200:02:BAGFEDC;01 

* BAGFEDC* 

635 BL-BL-l:COLOR0:LINE(58,2)-C 

68,7) ,PSET,BF;DRAW"BM58,2;S2;C1 

-:NU-BL:GOSUB 1650 

637 IF BL-0 THEN PP-3 : LV-LV+1 : B m 



IIIIIIHHl" PROGMMAUODeJOGOS 38 ]H|||||IIIIIII 



L=15+5*LV : COLORO : LINE {14 , 2) - £ 24 

.7) ,PSET,BF:LINE(58.2}-{68.7) ,P 

SET , BF : NU = LV : DRAWBM14 , 2 i CI " : GO 

SUB 1650:GOSUB 6000 :NU-BL: DRAW" 

BM58.2;C1" :GQSUB 1650 

640 X2-B {XP} *8 : Y2-B ( YP) *8 : PUT (X 

2.Y2)-(X2+15.Y2+15) , SP.PSET 

650 PUT(AX*8,AY*8)-(AX*8+15,AY* 

8+7) , S2,PSET:AX=29:AY-MY+1 

660 GOSUB 4000:GOSUB 5000:RETUR 

M 



SB] 



Tffi 



600 X2=B (XP) *8: Y2=B(YP) *8: PUT S 

PRITE 4. (X2,Y2) ,9, BE 

630 BL=BL-1 

640 IF BL = THEN PP»3 : LU=LU+.L : B 

L=15+5*LV 

650 GOSUB 1700 

660 PUT SPRITE 3 , (AX*S , AY*B) . 4 , 

FL:*X=29iAy=MY 

670 GOSUB 4 000: GOSUB 500 : RETUR 

H 



600 HCOLOH= 3:X2 = B(XP) * 8:Y 
2 - B(¥P) * 8: DRAW BE AT X2.Y2 

6J0 BL = BL - 1 

620 IF BL « THEM PP = 3 : LV = 

LV + 1 :BL = 15 + 5 * LV 
630 GOSUB 1700 

640 HCOLOR- 0:X2 ■ B(XP) * 8:Y 
2 = B(YP) * 8: DPAW BE AT X2.Y2 

650 DRAW FL AT AX * B , AY * 8:A 

X = 28: AY ■ MY + 1 : HCOL.OR= 3 
660 GOSUB 4000: GOSUB 5000: RE 
TURN 

Essa rotina promove o estouro do ba- 
lao quando ele e atingido pela flecha. 
Ela e muito simples: apenas coloca na 
tela a imagem do balao estourado, apa- 
gando-a em seguida. 

Depois de cada estouro, atualiza-se 
o numero de baloes restantes e, se for 
necessario, tambem o nivel de dificul- 
dade. A flecha deve voltar, entao, a po- 
sicao de Freddy, para que ele possa es- 
tourar o pr6ximo balao. 
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LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



PROGRAMACAO DE JOGOS 

Jogos de guerra no micro. Organizacao do jogo. Regras da 
batalha. Funcionamento da tela. Criacao dos blocos graficos. 

CODIGO DE MAQUINA 

Avalanche* a sincronia dos diversos eventos. Rotinas 
encarregadas do acerto inicial das variaveis. 

PROGRAMACAO BASIC 

Os diferentes metodos de controle de jogos por teclas 
multiplas. A matriz do teclado. Um teclado a quatro maos. 

PROGRAMACAO BASIC 

Mecanica no micro: simulacao de roldanas, 
polias e alavancas. 



50' 
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WOt* 






C*$ 



36.00 
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